# datos
data = fread("../resultados/argentina/variables.csv")
glimpse(data)
## Rows: 2,159
## Columns: 6
## $ anio <int> 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, ~
## $ variable <chr> "Producción de petróleo crudo", "Producción de petróle~
## $ unidad <chr> "barriles", "barriles", "barriles", "barriles", "barri~
## $ codigo_variable <chr> "Q_crudo_regalias", "Q_crudo_regalias", "Q_crudo_regal~
## $ valor <dbl> 296505952, 277696773, 269251895, 271502835, 263813108,~
## $ fuente <chr> "Sec. Energía - Regalías", "Sec. Energía - Regalías", ~
unique(data$variable)
## [1] "Producción de petróleo crudo"
## [2] "Producción de gas natural"
## [3] "Exportaciones de petróleo crudo"
## [4] "Exportaciones de gas natural"
## [5] "Precio del mercado interno del petróleo crudo"
## [6] "Precio del mercado interno del gas natural"
## [7] "Precios de referencia mundial de crudo"
## [8] "Precios de exportación de crudo"
## [9] "Precio del gas natural boca de pozo en Estados Unidos"
## [10] "Precio de importación de gas natural en Estados Unidos"
## [11] "Precio de importación de gas natural por tuberías en Estados Unidos"
## [12] "Precio de importación de GNL en Estados Unidos"
## [13] "Precio de exportación de gas natural en Estados Unidos"
## [14] "Precio de exportación de gas natural por tuberías en Estados Unidos"
## [15] "Precio de exportación de GNL en Estados Unidos"
## [16] "Precio Henry hub spot del gas natural en Estados Unidos"
## [17] "Precio CIF del GNL en Japón"
## [18] "Precio Japan Korea Marker del GNL"
## [19] "Precio de importación de gas natural en Alemania"
## [20] "Precio NBP del gas natural en Inglaterra"
## [21] "Precio TTF del gas natural en Holanda"
## [22] "Precio Alberta del gas natural en Canadá"
## [23] "Precio CIF mix OCDE"
## [24] "Precio del LNG en Asia"
## [25] "Precio del gas natural en la UE"
## [26] "Precio de exportación de gas natural de YPFB hacia Argentina"
## [27] "Precio de exportación de gas natural de YPFB hacia Brazil"
## [28] "Precio de importación de gas natural de Argentina desde Bolivia"
## [29] "Precio de exportación de gas natural desde Bolivia hacia Argentina"
## [30] "Precio de importación de gas natural de Argentina desde Bolivia (IDEE)"
## [31] "Precio de exportación de gas natural de Argentina"
## [32] "Regalías provinciales por la producción de hidrocarburos"
## [33] "Retenciones a las exportaciones hidrocarburíferas"
## [34] "Subsidios a empresas hidrocarburíferas"
Fuentes:
La producción de petróleo crudo de largo plazo proviene del Anuario de Combustibles, de la cual contamos datos desde 1911 hasta 1992. Sus valores para el período 1980-1992 coinciden con los de EIA, por lo cual pueden usarse como fuentes alternativas. Asimismo, la evolución de SESCO es similar a la de EIA, salvo por pequeñas divergencias entre 2008 y 2013. La serie de Regalías presenta un nivel menor que las anteriores debido a las deducciones de producción que realizan las empresas para pagar un menor nivel de Regalías hacia las provincias donde realizan la producción. Por último, la serie del Ministerio de Economía coincide con Regalías en sus primeros años, luego presenta un nivel intermedio entre Regalías y SESCO y a partir de 2009 toma a SESCO como fuente. Salvo el Anuario de Combustibles, el resto de las series presentan datos hasta los últimos años. Por lo tanto, el criterio de selección para la serie de producción con la que se realizarán los cálculos es el siguiente:
prod_crudo_plt <- ggplot(data[ variable == "Producción de petróleo crudo", ],
aes(anio, valor, color = fuente))+
geom_line()+
labs(title = "Gráfico 1. Producción de petróleo crudo. Argentina (1911 - 2020)",
y = "Millones de Barriles",
x = "Año",
caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5))+
# scale_shape_discrete(name = "Fuente")+
# scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_y_continuous(labels = scales::unit_format(unit ="", scale = 1e-6))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))
# prod_crudo_plt
as.data.frame(dcast(data[ variable == "Producción de petróleo crudo", ] ,
anio ~ fuente, value.var = "valor")) %>%
kable(caption = "Tabla 1. Producción de petróleo crudo en Argentina según distintas fuentes (barriles)",
knitr.kable.NA = "", booktabs = TRUE) %>%
# kable_styling(bootstrap_options = c("striped"))
kable_styling(latex_options = "repeat_header", repeat_header_text = "Table 2 cont.")
| anio | Anuario de combustibles | EIA | MECON | Sec. Energía - Regalías | Sec. Energía - SESCO | Sec. Energía - SESCO (serie histórica) |
|---|---|---|---|---|---|---|
| 1911 | 12579.6 | NA | NA | NA | NA | NA |
| 1912 | 44028.6 | NA | NA | NA | NA | NA |
| 1913 | 132085.8 | NA | NA | NA | NA | NA |
| 1914 | 276751.2 | NA | NA | NA | NA | NA |
| 1915 | 515763.6 | NA | NA | NA | NA | NA |
| 1916 | 867992.4 | NA | NA | NA | NA | NA |
| 1917 | 1207641.6 | NA | NA | NA | NA | NA |
| 1918 | 1352307.0 | NA | NA | NA | NA | NA |
| 1919 | 1327147.8 | NA | NA | NA | NA | NA |
| 1920 | 1647927.6 | NA | NA | NA | NA | NA |
| 1921 | 2056764.6 | NA | NA | NA | NA | NA |
| 1922 | 2861859.0 | NA | NA | NA | NA | NA |
| 1923 | 3333594.0 | NA | NA | NA | NA | NA |
| 1924 | 4660741.8 | NA | NA | NA | NA | NA |
| 1925 | 5987889.6 | NA | NA | NA | NA | NA |
| 1926 | 7849670.4 | NA | NA | NA | NA | NA |
| 1927 | 8629605.6 | NA | NA | NA | NA | NA |
| 1928 | 9069891.6 | NA | NA | NA | NA | NA |
| 1929 | 9390671.4 | NA | NA | NA | NA | NA |
| 1930 | 9000703.8 | NA | NA | NA | NA | NA |
| 1931 | 11705317.8 | NA | NA | NA | NA | NA |
| 1932 | 13139392.2 | NA | NA | NA | NA | NA |
| 1933 | 13692894.6 | NA | NA | NA | NA | NA |
| 1934 | 14026254.0 | NA | NA | NA | NA | NA |
| 1935 | 14296715.4 | NA | NA | NA | NA | NA |
| 1936 | 15460328.4 | NA | NA | NA | NA | NA |
| 1937 | 16353480.0 | NA | NA | NA | NA | NA |
| 1938 | 17076807.0 | NA | NA | NA | NA | NA |
| 1939 | 18611518.2 | NA | NA | NA | NA | NA |
| 1940 | 20605384.8 | NA | NA | NA | NA | NA |
| 1941 | 22014300.0 | NA | NA | NA | NA | NA |
| 1942 | 23706256.2 | NA | NA | NA | NA | NA |
| 1943 | 24832130.4 | NA | NA | NA | NA | NA |
| 1944 | 24228309.6 | NA | NA | NA | NA | NA |
| 1945 | 22882292.4 | NA | NA | NA | NA | NA |
| 1946 | 20800368.6 | NA | NA | NA | NA | NA |
| 1947 | 21844475.4 | NA | NA | NA | NA | NA |
| 1948 | 23221941.6 | NA | NA | NA | NA | NA |
| 1949 | 22586671.8 | NA | NA | NA | NA | NA |
| 1950 | 23460954.0 | NA | NA | NA | NA | 23460954 |
| 1951 | 24467322.0 | NA | NA | NA | NA | 24464806 |
| 1952 | 24819550.8 | NA | NA | NA | NA | 24819551 |
| 1953 | 28499083.8 | NA | NA | NA | NA | 28501600 |
| 1954 | 29574639.6 | NA | NA | NA | NA | 29572124 |
| 1955 | 30505530.0 | NA | NA | NA | NA | 30504272 |
| 1956 | 31015003.8 | NA | NA | NA | NA | 31011859 |
| 1957 | 33952340.4 | NA | NA | NA | NA | 33951711 |
| 1958 | 35656876.2 | NA | NA | NA | NA | 35656247 |
| 1959 | 44575812.6 | NA | NA | NA | NA | 44578329 |
| 1960 | 63860339.4 | NA | NA | NA | NA | 63859811 |
| 1961 | 84459434.4 | NA | NA | NA | NA | 84461611 |
| 1962 | 98208937.2 | NA | NA | NA | NA | 98205912 |
| 1963 | 97139671.2 | NA | NA | NA | NA | 97140621 |
| 1964 | 100278281.4 | NA | NA | NA | NA | 100275728 |
| 1965 | 99536085.0 | NA | NA | NA | NA | 98276326 |
| 1966 | 104756619.0 | NA | NA | NA | NA | 104759676 |
| 1967 | 114675633.6 | NA | NA | NA | NA | 114673313 |
| 1968 | 125500379.4 | NA | NA | NA | NA | 125488171 |
| 1969 | 126846396.6 | NA | NA | NA | NA | 130081536 |
| 1970 | 143420019.6 | NA | NA | NA | NA | 143397622 |
| 1971 | 154458618.6 | NA | NA | NA | NA | 154510553 |
| 1972 | 158471511.0 | NA | NA | NA | NA | 158461781 |
| 1973 | 153722712.0 | NA | NA | NA | NA | 153728574 |
| 1974 | 151093575.6 | NA | NA | NA | NA | 151095236 |
| 1975 | 144464126.4 | NA | NA | NA | NA | 144465535 |
| 1976 | 145590000.6 | NA | NA | NA | NA | 145592913 |
| 1977 | 157540620.6 | NA | NA | NA | NA | 157542721 |
| 1978 | 165138699.0 | NA | NA | NA | NA | 165137944 |
| 1979 | 172554373.2 | NA | NA | NA | NA | 172553839 |
| 1980 | 179674426.8 | 179215000 | NA | NA | NA | 179675710 |
| 1981 | 181473309.6 | 181040000 | NA | NA | NA | 181475631 |
| 1982 | 179070606.0 | 179215000 | NA | NA | NA | 179071260 |
| 1983 | 179095765.2 | 179215000 | NA | NA | NA | 179096470 |
| 1984 | 175095452.4 | 174470000 | NA | NA | NA | 175096654 |
| 1985 | 167780415.0 | 167900000 | NA | NA | NA | 167780799 |
| 1986 | 158370874.2 | 158410000 | NA | NA | NA | 158370535 |
| 1987 | 156345558.6 | 156220000 | NA | NA | NA | 156346427 |
| 1988 | 164308445.4 | 163885000 | NA | NA | NA | 164306433 |
| 1989 | 168019427.4 | 167900000 | NA | NA | NA | 168021214 |
| 1990 | 176139559.2 | 176295000 | NA | NA | NA | 176139786 |
| 1991 | 180020365.8 | 177025000 | NA | NA | NA | 180017347 |
| 1992 | 202820890.8 | 201845000 | NA | NA | NA | 202821545 |
| 1993 | NA | 216810168 | NA | NA | 216709977 | 216666596 |
| 1994 | NA | 237290000 | NA | NA | 243705395 | 243619496 |
| 1995 | NA | 260820000 | NA | NA | 262532039 | 262532038 |
| 1996 | NA | 275934016 | NA | NA | 286623718 | 286623720 |
| 1997 | NA | 304290000 | NA | NA | 304444927 | 304444925 |
| 1998 | NA | 309040000 | NA | 296505952 | 309128920 | 309128920 |
| 1999 | NA | 292815000 | 281195635 | 277696773 | 286730758 | 280944390 |
| 2000 | NA | 277816858 | 265524542 | 269251895 | 271988857 | 272277680 |
| 2001 | NA | 292876000 | 274056011 | 271502835 | 280350178 | 280631963 |
| 2002 | NA | 291688655 | 269745373 | 263813108 | 276359551 | 276503269 |
| 2003 | NA | 285834055 | 261961788 | 253178470 | 270390707 | 270191278 |
| 2004 | NA | 267421265 | 246462266 | 238558431 | 254764944 | 254315156 |
| 2005 | NA | 256832160 | 235333294 | 223865031 | 242735040 | 242613090 |
| 2006 | NA | 254204945 | 234258116 | 222152437 | 240581577 | 241190772 |
| 2007 | NA | 247753341 | 231623045 | 214937899 | 234634844 | 238412146 |
| 2008 | NA | 241343562 | 229046373 | 208059287 | 229813565 | 236452112 |
| 2009 | NA | 237681193 | 220344494 | 204941826 | 213397024 | 227941981 |
| 2010 | NA | 228510472 | 215106366 | 197987225 | 208580089 | 222743304 |
| 2011 | NA | 212222926 | 202002442 | 184055431 | 195537811 | 209615630 |
| 2012 | NA | 201158723 | 201076104 | 183502681 | 194697352 | 208440947 |
| 2013 | NA | 197044731 | 197077900 | 173900143 | 191127641 | 204173770 |
| 2014 | NA | 194238283 | 194226984 | 174504828 | 187966208 | 201146496 |
| 2015 | NA | 194267150 | 194339835 | 175540962 | 186094035 | 201105367 |
| 2016 | NA | 186354440 | 186858772 | 166419126 | 178180149 | NA |
| 2017 | NA | 174997000 | 175065755 | 157994322 | 166357511 | NA |
| 2018 | NA | 178587000 | 178663117 | 158983018 | 169528965 | NA |
| 2019 | NA | 185143000 | 169624009 | 175647454 | 175152024 | NA |
| 2020 | NA | NA | NA | 168517790 | 164579561 | NA |
# library(htmlTable)
# htmlTable(dcast(data[ variable == "Producción de petróleo crudo", ] ,
# anio ~ fuente, value.var = "valor"),
# # cgroup = c("Set 1:25", "Set 26:50"),
# # n.cgroup = c(2, 2),
# # rnames = FALSE
# )
Al igual que en la producción de petróleo crudo, la serie de largo plazo de producción de gas proviene del Anuario de Combustibles, de la cual contamos datos desde 1913 hasta 1992. A diferencia del crudo, sus valores para el período 1980-1992 no coinciden con los de EIA, pero está última sí coincide con los de Regalías entre 1999 y 2015. En cambio, la serie de SESCO, tiende a continuar la evolución de EIA y Regalías, pero con el nivel del Anuario de Combustibles, por lo que ambos pares de series pueden empalmar coherentemente según su nivel. Nuevamente, los valores de la base de Regalías son menores debido a las deducciones de producción para tributar menos regalías. La serie del Ministerio de Economía toma los valores de SESCO.Por lo tanto, el criterio de selección para la serie de producción de gas para los cálculos es el siguiente:
prod_gas_plt <- ggplot(data[ variable == "Producción de gas natural", ],
aes(anio, valor, color = fuente))+
geom_line()+
labs(title = "Gráfico 2. Producción de gas. Argentina (1913 - 2020)",
y = "MMBTU", x = "Año",
caption = "Fuente: elaboración propia en base a Anuario de Combustibles, EIA, Ministerio de Economía, Secretaría de Energía (Base Regalías y SESCO)")+
scale_y_continuous(labels=function(x) format(x, big.mark = ".", scientific = FALSE))+
scale_x_continuous(breaks = seq(1910, 2030, by = 10))+
theme(legend.position = "bottom", plot.caption = element_text(size = 7.5) )
prod_gas_plt
## Warning in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L, :
## 'big.mark' and 'decimal.mark' are both '.', which could be confusing
ggplotly(prod_gas_plt) %>%
layout(legend = list(
orientation = "h",
x = 0.1, y = -0.2) )
## Warning in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L, :
## 'big.mark' and 'decimal.mark' are both '.', which could be confusing
as.data.frame(dcast(data[ variable == "Producción de gas natural", ] ,
anio ~ fuente, value.var = "valor")) %>%
kable(caption = "abla 2. Producción de gas natural en Argentina según distintas fuentes (MMBTU)",
knitr.kable.NA = "", booktabs = TRUE) %>%
# kable_styling(bootstrap_options = c("striped"))
kable_styling(latex_options = "repeat_header", repeat_header_text = "Table 2 cont.")
| anio | Anuario de combustibles | EIA | MECON | Sec. Energía - SESCO | Sec. Energía - SESCO (serie histórica) |
|---|---|---|---|---|---|
| 1913 | 35300 | NA | NA | NA | NA |
| 1914 | 105900 | NA | NA | NA | NA |
| 1915 | 247100 | NA | NA | NA | NA |
| 1916 | 317700 | NA | NA | NA | NA |
| 1917 | 529500 | NA | NA | NA | NA |
| 1918 | 635400 | NA | NA | NA | NA |
| 1919 | 635400 | NA | NA | NA | NA |
| 1920 | 776600 | NA | NA | NA | NA |
| 1921 | 988400 | NA | NA | NA | NA |
| 1922 | 1306100 | NA | NA | NA | NA |
| 1923 | 1588500 | NA | NA | NA | NA |
| 1924 | 2647500 | NA | NA | NA | NA |
| 1925 | 3388800 | NA | NA | NA | NA |
| 1926 | 6036300 | NA | NA | NA | NA |
| 1927 | 5365600 | NA | NA | NA | NA |
| 1928 | 6106900 | NA | NA | NA | NA |
| 1929 | 9495700 | NA | NA | NA | NA |
| 1930 | 9531000 | NA | NA | NA | NA |
| 1931 | 12143200 | NA | NA | NA | NA |
| 1932 | 16732200 | NA | NA | NA | NA |
| 1933 | 23192100 | NA | NA | NA | NA |
| 1934 | 25804300 | NA | NA | NA | NA |
| 1935 | 21780100 | NA | NA | NA | NA |
| 1936 | 18814900 | NA | NA | NA | NA |
| 1937 | 17826500 | NA | NA | NA | NA |
| 1938 | 17332300 | NA | NA | NA | NA |
| 1939 | 18285400 | NA | NA | NA | NA |
| 1940 | 18920800 | NA | NA | NA | NA |
| 1941 | 20932900 | NA | NA | NA | NA |
| 1942 | 23827500 | NA | NA | NA | NA |
| 1943 | 23862800 | NA | NA | NA | NA |
| 1944 | 23368600 | NA | NA | NA | NA |
| 1945 | 21462400 | NA | NA | NA | NA |
| 1946 | 19838600 | NA | NA | NA | NA |
| 1947 | 20544600 | NA | NA | NA | NA |
| 1948 | 21356500 | NA | NA | NA | NA |
| 1949 | 23756900 | NA | NA | NA | NA |
| 1950 | 26616200 | NA | NA | NA | 26637557 |
| 1951 | 29263700 | NA | NA | NA | 29300553 |
| 1952 | 31664100 | NA | NA | NA | 31704024 |
| 1953 | 32864300 | NA | NA | NA | 32902883 |
| 1954 | 34629300 | NA | NA | NA | 34784338 |
| 1955 | 37347400 | NA | NA | NA | 37580733 |
| 1956 | 40489100 | NA | NA | NA | 40524894 |
| 1957 | 49914200 | NA | NA | NA | 49929273 |
| 1958 | 58350900 | NA | NA | NA | 58382564 |
| 1959 | 75965600 | NA | NA | NA | 75981379 |
| 1960 | 126162200 | NA | NA | NA | 126187228 |
| 1961 | 173252400 | NA | NA | NA | 173272733 |
| 1962 | 217906900 | NA | NA | NA | 217907465 |
| 1963 | 209893800 | NA | NA | NA | 209914274 |
| 1964 | 230685500 | NA | NA | NA | 232476904 |
| 1965 | 220130800 | NA | NA | NA | 220145944 |
| 1966 | 210458600 | NA | NA | NA | 210489946 |
| 1967 | 228320400 | NA | NA | NA | 228324954 |
| 1968 | 249006200 | NA | NA | NA | 249383769 |
| 1969 | 247347100 | NA | NA | NA | 247362632 |
| 1970 | 270539200 | NA | NA | NA | 270571605 |
| 1971 | 286530100 | NA | NA | NA | 286532218 |
| 1972 | 293554800 | NA | NA | NA | 293583781 |
| 1973 | 314664200 | NA | NA | NA | 314677649 |
| 1974 | 332773100 | NA | NA | NA | 332801870 |
| 1975 | 362707500 | NA | NA | NA | 362711242 |
| 1976 | 389429600 | NA | NA | NA | 389421552 |
| 1977 | 411703900 | NA | NA | NA | 411694934 |
| 1978 | 406091200 | NA | NA | NA | 406097519 |
| 1979 | 452369500 | NA | NA | NA | 452381608 |
| 1980 | 475349800 | 279883745 | NA | NA | 475337374 |
| 1981 | 481103700 | 345856343 | NA | NA | 481104265 |
| 1982 | 547961900 | 398834337 | NA | NA | 547974079 |
| 1983 | 606489300 | 444815238 | NA | NA | 606476274 |
| 1984 | 662369200 | 493794894 | NA | NA | 662367859 |
| 1985 | 674688900 | 499792403 | NA | NA | 674693736 |
| 1986 | 679383800 | 546772888 | NA | NA | 679373563 |
| 1987 | 676630400 | 526781192 | NA | NA | 676738065 |
| 1988 | 802510200 | 631737597 | NA | NA | 802513624 |
| 1989 | 854507100 | 719701060 | NA | NA | 854503182 |
| 1990 | 812535400 | 629758419 | NA | NA | 812532470 |
| 1991 | 869897900 | 703537773 | NA | NA | 869894935 |
| 1992 | 884017900 | 709185427 | NA | NA | 884004839 |
| 1993 | NA | 759667459 | NA | 902534750 | 941191792 |
| 1994 | NA | 786133466 | NA | 938141651 | 977718114 |
| 1995 | NA | 882863287 | NA | 1030423781 | 1074573619 |
| 1996 | NA | 937929964 | NA | 1178069808 | 1223135434 |
| 1997 | NA | 966523238 | NA | 1308711607 | 1308711565 |
| 1998 | NA | 1044536983 | NA | 1363647081 | 1363647119 |
| 1999 | NA | 1220332664 | 1438440376 | 1437911083 | 1497619409 |
| 2000 | NA | 1320585622 | 1595968230 | 1595364784 | 1595968245 |
| 2001 | NA | 1311054531 | 1695761429 | 1698918102 | 1695761415 |
| 2002 | NA | 1274695183 | 1639935628 | 1642089377 | 1639935630 |
| 2003 | NA | 1448725846 | 1798455265 | 1800558632 | 1798455257 |
| 2004 | NA | 1584279142 | 1841141694 | 1842819823 | 1841141676 |
| 2005 | NA | 1610754395 | 1810134560 | 1811916924 | 1810134545 |
| 2006 | NA | 1627345554 | 1823095828 | 1823770983 | 1823095822 |
| 2007 | NA | 1582514125 | 1799281670 | 1800028283 | 1799281666 |
| 2008 | NA | 1555332865 | 1782235412 | 1775924408 | 1782235402 |
| 2009 | NA | 1460092555 | 1709199505 | 1709199505 | 1709199490 |
| 2010 | NA | 1415543529 | 1662897706 | 1662897706 | 1662897715 |
| 2011 | NA | 1368594081 | 1607122643 | 1607122643 | 1607122656 |
| 2012 | NA | 1328704699 | 1557566403 | 1557566403 | 1557566398 |
| 2013 | NA | 1255279998 | 1472302594 | 1472302712 | 1472302602 |
| 2014 | NA | 1253161977 | 1464386089 | 1464386089 | 1464386083 |
| 2015 | NA | 1284932281 | 1514565301 | 1514565301 | 1516943582 |
| 2016 | NA | 1386102188 | 1588070375 | 1588070375 | NA |
| 2017 | NA | 1444276650 | 1576380047 | 1576380047 | NA |
| 2018 | NA | NA | 1659848578 | 1659848578 | NA |
| 2019 | NA | NA | 1603235926 | 1742063372 | NA |
| 2020 | NA | NA | NA | 1591882214 | NA |